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RPGSIOEXCEPTION Signal 1/0 errors 16-Sep-1984 02:16:1 AX-11 Bliss-32 V4.0-74 Pg 1 
° 13-88-1382 96:48:13 RPGRTL.SRC RPI DEXCE. BS2:1 ” (1) 
4 MODULE RPGSIOEXCEPTION( Eat "Signal 1/0 errors' 
09 oe = '1-003' ! file:RPGIOEXCE.832 EDIT:DG1003 
0 = 


REAR AAERAAAARAEAAREREAAERAAREAAAAAE EAE 


1980, 1982, 1984 BY 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
!* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


a 
® 
*® 
*® 
a 
® 
® 
® 
x 
® 
it TRANSFERRED. : 
*® 
® 
® 
*® 
*® 
* 
* 
® 
® 
® 


BEGIN 
i 


!® COPYRIGHT (c) 1978 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: eePOkat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
: :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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Vee RRR REAR ERE RARER EAE REAR 


MEWN =O CONAUSWN —OODNOUESWWN—ODONOUS Wh 


, ot ar ees ne 


1-001 = Original. DG 18-Jan-1983 
1-002 = Reference to RPG$_INVDATTYP taken out. 
Reference to RMS$_KRF changed to RMS$_REF. DG 11-Jul-1983 
1-003 - Remove mapping of RMS$_KEY to RPG specific error. DG 10-Aug-1983 


i] 
009 i+4 
i FACILITY: RPGII SUPPORT 
005 ABSTRACT: 
003 i This procedure is called to process a wide variety of 1/0 
Bae } exceptions. It retrieves the file name string and signals the errors. 
7 0037 1! 
: sit : ENVIRONMENT: Vax-11 User Mode 
0 9040 AUTHOR: Debess Grabazs, CREATION DATE: 18-Jan-1983 
‘ 004 i MODIFIED BY: 
004 
i 
i 
' 
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' Key doesn't match error 
' Out of sequence error 
' No current record error 


P 
RPG$_NONASCKEY, 
RPG$_UPDNO_CUR: 


$ 38 35 } BSBTTL "Declarations' ; 
> 54 53 1 | PROLOGUE FILE: | ; 
; 8 084 ia 
: 2$ iets 1 REQUIRE "RTLIN:RPGPROLOG'; ! Switches, PSECTs, macros, ; 
a Q121 3 i “linkages and LIBRARYs : 
; 59 01 § 1 3 
3; & 01 1 !¢ 3 
; 61 3 4 1 ! LINKAGES 3 
3 o¢ 125 1! NONE 3 
3 6 4 g 1 !- F 
; 64 1 1 3 
:- = 0128 1 !+ $ 
; 66 0129 1 ! TABLE OF CONTENTS: 3 
3 68 bi3 1 F 
: % 6138 i aimee RPOS IOEXCEPTION NOVALUE 
ee. 0134 1 ; : 
; 72 0135 1 !¢ 3 
; 73 0136 1 ! INCLUDE FILES ¢ 
3 74 0137 1! NONE é 
3 75 0138 1 !- 3 
3 76 0139 1 - 
: 77 0140 1 !+4 ; 
5 78 0141 1 ! MACROS 3 
RB ey : 
: (81 0144 1 MACRO : 
; 82 0145 1 RETRIEVE = 0,0,2,0%; é 
; 83 0146 1 : 
; 84 0147 1 !+4 
; 85 0148 1 ! EXTERNAL REFERENCES 
$ 86 0149 1 !- 
3 87 0150 1 
3 88 0151 1 EXTERNAL ROUTINE 
3 44 8126 : LIBSSTOP:NOVALUE; ! Signal fatal error 
: 91 0154 1 EXTERNAL LITERAL 
: 0155 1 RPG$_ENDOF FIL, ! End of file error 
; a o128 ' RPGS_EXTINDOFF : File not open error 
8 Fe Bee: oe Rte eee | 
: 96 Rap : RPG$_KEYNOTFND, Key not found error | 
; 0161 1 | 
: B66 1 ! 
z 016 1 | 

| 

| 

| 

| 
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re ener tin signal 1/0 errors ‘ 1o~300-138% 96:16:13 Ax-11 Oi feta ae Ph tpl Page 4 
1 RPGSIOEXCEPTION = Signal 1/0 errors 14-Sep-1984 15:04:1 RPGRTL.SRCIJRPGIOEXCE.B32;1 (4) 
; 146 05 BEGIN | 
; 145 § 
; 148 0 LOCAL 
3; 16 4 CONDITION, ! Longword RPG$ error number 
: 148 020 FAB: REF BLOCKE BYTE], i Address of F | 
; «149 10 NAM: REF BLOCKL,BYTEJ, ! Address of NAM block-used to 
; 150 0211 ! communicate optional filename 
; 12) ig ! related information. 
Te ; 1 RMS_STS, ' RMS STS value 
3; 14 RMS_STV, ' RMS STV value 
: 123 8 \3 RSADESC: VECTORC2); ! Descriptor for RSA (resultant string area) 
; 156 0 i '+ 
s 157 0218 ! Ensure that the RMS structures are valid. 
;. 158 8533 te 
7” 189 0220 IF .RAB EQL 0 
: 160 bss) THEN 
; 12) bess LIBSSTOP (RPGS_FATINTERR); ! Error if RAB addr = 0 
: 188 $552 5 FAB = .RABCRABSL_FAB); ! Fetch FAB address 
> 164 0225 § IF .FAB EQL 0 
s 65 oss8 N ; 
; 196 osse § LIBSSTOP (RPGS$_FATINTERR); ! Error if FAB addr = 0 
; 168 0229 § NAM = .FABCFABSL_NAM]; ! Fetch addr of NAM block 
3; 169 0230 IF .NAM EQL 0 , 
3; 170 0231 § THEN 
; 4 4. Os3¢ § LIBSSTOP (RPG$_FATINTERR); ! Error if addr of NAM block = 0 
: 178 0234 2 1+ 
> 174 0235 2 i Fetch the address and length of the RSA as defined in the NAM block. 
3 W795 0236 2 ! If the length field is zero, then fetch the extended string length field. 
: 176 0237 2 ! If that too has a zero length, then just use the FAB file name string 
s 177 0238 § ! mame and string Length. 
; 178 0239 '- 
; 179 0240 2 ; 
: 180 0241 2 RSADESCCO) = .NAMCNAM$B_RSLIJ; ! Resultant string length 
; «6181 B5e$ IF .RSADESCCOJ EQL 0 
3 13¢ 024 THE 
; 0244 BEGIN 
: «184 0245 , 
3: «6185 0246 RSADESCCO] = .NAMCNAM$B_ESL]; ! Expanded string length 
3; «4186 0247 ; IF .RSADESCCOJ EQL 0 
: 187 pce THEN 
s; ie 0249 4 BEGIN 
: 189 0250 4 : 
s 190 0251 4 pees chee = PROT EASSS 06S 3: ! Default file spec string lencth 
; 13) 0526 : RSADESCC1) = .FABCFABSL_DNA); ! Default file spec string addr | 
: 193 0254 4 END 
3 194 0255 LSE - 
3 Hb 8528 RSADESCC1)] = .NAMCNAMSL_ESA); ! Expanded string addr 
: 199 0258 END | 
; 198 0259 ELSE : 
: ph 4 $9 RSADESCC1) = .NAMCNAMSL_RSAJ; ! Resultant string addr | 
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e808 RPGS IOEXCEPTION = Signal 1/0 errors 12286 P- 1382 REE APGRTL SRE IRPCIOENCE. 69231 ° (4) 
: 201 026 
3 0g 8 ‘+ 
; 20 64 ' Case on retrieve indicator. 
: $08 $566 x | 
; soe 8 of CASE, ,TUASSLRE TRIEVES FROM RPGSK_ERR_RAB TO RPGSK_ERR_FILE_CNTXT OF 
° | 
; $08 8 69 ‘ | 
; 209 70 LOUTRANGE): ! Invalid value 
: 310 9274 LIBSSTOP (RPG$_FATINTERR); | 
; $18 0 ig CRPGSK_ERR_RAB, RPGSK_ERR_FABI: ! RMS RAB/FAB error 
: 1 0274 BEGIN 
; 214 0275 
; $e $ 8 i ans Pick h i STS d STV 
3 ! error. ck up the appropriate an ‘ 
; StF 0978 in ‘ athe 
; 218 0279 
3; <9 0280 IF .FLAGSCRETRIEVE] EQL RPGSK_ERR_RAB ! Check specifically for RAB error 
s 220 0281 THE 
> ae ose¢ 4 BEGIN 
: $$¢ 0283 4 
; 2 0284 4 '+ | 
: 226 0285 4 ' Here we know that we have a RAB error. 
s 225 0286 4 !- | 
: 226 0287 4 
s get 0288 4 IF .RABCRABSL_STS) EQL 0 'NIf status of RAB = 0 
: 228 0289 4 THEN ' then sianal as a 
: $$3 0290 4 LIBSSTOP (RPG$_FATINTERR); '/fatal internal error. 
; 230 0291 4 RMS_STS = .RABCRABSL_STS); ! Load status code from RAB 
3 got i344 4 RMS_STV = .RABLRABS$L_STV]; ! Load status value from RAB 
3 $3¢ 534 4 
3; 2s 0294 4 END 
: 234 0295 3 ELSE 
eee a: 0296 4 BEGIN 
; 236 0297 4 
s 237 0298 4 '+ 
; 238 5344 4 ' Here we know that we have a FAB error. 
; 239 0300 4 le | 
3: 240 0301 4 
: 241 a4 4 IF .FABCFABSL_STSJ EQL 0 '\If status of FAB = 0, 
; see 0303 4 ' then signal a 
3; 26 0304 4 LIBSSTOP (RPG$_FATINTERR); '/fatal internal error. 
3 264 0305 4 RMS_STS = -FABEFABSL S151; ' Load status code from FAB 
3; 245 0306 4 RMS_STV = .FABLFABSL_STV); ! Load status value from FAB 
: $¢8 0307 4 
4 47 0308 END; 
: 249 0310 i? F : 
: 231 0319 Map the STS value into the appropriate RPG file status. 
: 25 031 | 
° 3g Bale 4 CONDITION = (SELECTONE .RMS_STS OF 
: 254 315 4 SET 
: 255 Bai8 4 
; 256 317 4 CRMS$_EOF): RPGS_ENDOF _FIL; 
: 57 0318 4 


| 


18-Se 
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008 RPCS IOEXCEPTION = Signal 1/0 errors 12-868} 382 3500513 RPGRTL SRC 9PGIOEXCE.B 231 
; es 18 : CRMS$_ISI): RPGS_EXTINDOFF; 

; 60 1 4 CRMS$_REF): RPG$_KEYNOTMAT; 

: $0 03 § ? CRMS$_RNFJ: RPG$_KEYNOTFND; 

: 64 8 > .4 CRMS$_SEQ): RPG$_NONASCKEY; 

; 265 326 4 

; 266 0327 4 CRMS$_CURJ: RPG$_UPDNO_CUR; 

; 267 0328 4 

; 268 0329 4 COTHERWISE]: 0; 

; 269 83 0 4 

$ en 1 TES); 

; sl 03 ¢ 

: Le; 033 '+ 

; 27 0334 3 ! Signal the error. 

> 274 0335 ; le 

. 2ee 0336 

; 276 0337 3 IF .CONDITION NEQ 0 

; ay 0338 3 HEN 

; $f8 tie ; LIBSSTOP (.CONDITION, 0, RPGS_FORFILE, 1, RSADESC) 

; 280 0341 3 LIBSSTOP (.RMS_STS, .RMS_STV, RPGS_FORFILE, 1, RSADESC); 
; 281 tak: 3 

3 28e 0343 2 END; 

; 283 0344 2 

; 284 0345 2 CRPG$K_ERR_FILE_CNTXT): 

; 285 0346 2 

; 286 0347 2 '+ Eg . 

; ¢87 0348 2 ! Fetch condition value from the RPGSL_CTX_ERROR field 

; 288 0349 2 ! and signal the error. 

; 289 0350 2 le 

; 290 0351 2 

: 291 O26 2 LIBSSTOP (.RABCRPGSL_CTX_ERROR], 0, RPGS_FORFILE, 1, RSADESC); 
; oe 0353 2 

: 6293 0354 2 TES; 

: 294 0355 2 

3; 295 0356 1 END; 


RPGSIOEXCEPTION Signal I/0 errors 
\1-003\ 


_RPGSCODE,NOWRT, SHR, PIC,2 
#RPGS_FORFIL 

#RPGSFATINTERR, R7 

LIBSSTOP, R6 


#8, SP 
RAB, R4 


RPCS IOEXCEPTION, Save R2,R3,R4,R5,R6,R7,RB ; 0165. 
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e 1 1 
PTION = Signal 1/0 errors 1 4 11 RPGRTL.SRCIRPGIOEXCE.B32;1 
5 12 0001 NEQ I$ 
DD 0 PUSHL R 
$6 , - CALLS #1, LIBSSTOP 
3c = ASSsCéO 00025 18 MOVL goiRA), FAB 
03 12 00029 NEQ $ 
DD 0 8 PUSHL R 
$6 01 F D CALLS #1, LIB$STOP 
2 28 «AS OD 0 0 2$: MOVL 40(FAB), NAM 
9 12 00034 BNEG 3$ 
DD 00036 PUSHL R7 
66 01 FB 00038 CALLS #1, LIBSSTOP 
6E 03 Ag 9A 0038 3$ MOV ZBL 3 NAN) , RSADESC 
18 12 0003F BNEQ 4 
6E 0B A2 9A 00041 MOVZBL 11(NAM), RSADESC 
OB 12 00045 BNEQ  4$ 
6E 35 A 9A 00047 MOVZBL 53(FAB), RSADESC 
04 AE 30 «=6A3 DO 00048 MOVL  4B8(FAB). RSADESC+4 
0C 11 00050 BRB 6$ 
04 AE 0c Ag DO 9005¢ 4$ MOVL _12(NAM), RSADESC+4 
05 11 0005 BR 6$ 
04 AE 04 A2 DdO 00059 5$ MOVL 4(NAM), RSADESC+4 
02 00 EF 0005E 6$ EXTZ2V #0, #2. FLAGS, RS 
01 55 CF 00064 CASEL RS. #1. #2 
0088 000¢ 000¢ 00068 7$ <WORD  8$-7$,- 
8$-7$.- 
21$-7$ 
57 DD 0006E PUSHL 7 
66 01 FB 00070 CALLS #1, LIBSSTOP 
04 00073 RET 
AC 02 00 ED 00074 8s: CMPZvV #0, #2, FLAGS, #1 
10 12 0007A BNEQ 10$ 
08 A& D5 0007C TSTL  8(R4) 
05 12 O007F BNEQ 9$ 
57 DD 00081 PUSHL 7 
66 01 FB 00083 CALLS #1, LIBSSTOP 
51 08 A& 7D 00086 9$ MOVG 8(R4), RMS_STS 
OF 11 0008A BRB 12$ 
08 A3 D5 OO0BC 10 TSTL 8(FAB) 
05 12 0008F BNEQ ~=s«di'$ 
57 0D 00091 PUSHL  R7 
rx. 01 FB 00093 CALLS #1, LIBSSTOP 
51 08 A3 7D 00096 11$ MOVO 8 (FAB), RMS STS 
0001827A BF 51 D1 OO09A 12$ CMPL  RMS_STS, #98938 
09 if 0A BNEQ 133 
50 000000006 8F DO 000A3 MOVL § #RPGS_ENDOF_FIL, CONDITION 
5¢ 11 QOOAA BRB 19$ 
00018584 &8F 51 D1 OOOAC 13$: CMPL = RMS_STS, #99716 
09 if 00083 BNEQ 4$ 
50 000000006 8F DO 000B MOVL § #RPGS_EXTINDOFF, CONDITION 
4A 11 000BC BRB 1 
0001875C —&F 51 D1 OOOBE 14$:  CMPL  =RMS_STS, #100188 
9 if} 00¢ BNEQ 
50 000000006 f 00 O9¢ MOVL #RPGS_KEYNOTMAT, CONDITION 
00018282 = &F 1 01 6006 15$:  CMPL = RMS_STS, #98994 
09 if} 00D BNEQ 16$ 
50 000000006 8F D0 00009 MOVL § #RPGS_KEYNOTFND, CONDITION 


COOOCOCOCOCOCOCOO COO OOO 
POMPIPOPOPOPOPONPINPYNPINY «POMPOM ss POOP 
AOL MFUILP LEE Ww nonror 
NONMANNY NOM] MOO Nuis 
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errors 7 
PTION = Signal 1/0 errors 14-Sep-19 RPGR RPGIOEXCE.8352;1 (4). 


6 11 OO0E BRB 19$ : 
000186AC BF ‘ D| Me 168: CPL RM _STS, #100012 + 0325 
50 000000006 §F 06 OF§ ROVL —FRBGS_NONASCKEY, CONDITION : | 
00018484 BF 51 01 Gor 17$ CMPL  RMS_STS, #99508 : 0327. 
09 if} : FB BNEQ 188 ; | 
50 000000006 8F 00 O00FD MOVL § #RPG$_UPDNO_CUR, CONDITION : | 
08 11 001 BRB 19$ : 
D4 001 6 18$ CLRL CONDITION : 0329 
0¢ 13 00108 19$ BEQL 0$ ; 0337, 
5E DD oi A PUSHL SP > 0339 
01 Dd 0010¢ PUSHL #1 : 
58 DD 001 PUSHL 8 : 
7E 4 0011 CLRL. =(SP) | 
30 DD 0011 PUSHL CONDITION : 
15 11 00114 BRB 22$ : | 
5E DD 00116 20$:  PUSHL SP > 0341 
07 DD 00118 PUSHL #1 : | 
0106 8F BB OO1IA PUSHR #*M<R1,R2,R8> ; 
0B 11 OO11E BRB 228 ; 
5E DD 00120 21$: | PUSHL SP > 0352 
01 DD 00122 PUSHL #1 ; 
58 DD 00124 PUSHL R8 : 
7E D4 00126 CLRL. = = (SP) ; 
FB AG DD 00128 PUSHL  =8(R4) : 
a 05 FB 0012B 22$: CALLS #5, LIBSSTOP ; 
04 0012E RET : 0356) 
; Routine Size: 303 bytes, Routine Base: _RPGSCODE + v000 
296 0357 1 
297 0358 0 END ELUDOM 
| 
; PSECT SUMMARY | 
: Name Bytes Attributes | 
> _RPGSCODE 303 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 
: Library Statistics 
9 he a ae ola Ae SS |e enna Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 18 0 581 00:01.0 
> 7$255$DUA28:CRPGRTL.OBJIRPGLIB.L32;1 54 4 7 9 00:00.1 


RPEEICERCEPT 10m signet 1/0 


mn ties 


errors 4 02:16:1 AX-11 Bliss-32 V Page 
IOEXCEPTION = Signal 1/0 errors Re 96:48: ] RPGRTL.SR ROIR RPSIOE pe a2; 7 . 


COMMAND QUALIFIERS 
BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:RPGIOEXCE/0B/=0B)$ : RPGIOEXCE MSRC$:RPGIOEXCE/UPDATE=(ENHS$:RPGIOEXCE 


303 06:07. i + 0 data bytes 


pe, aa 

Lines/CPU Min: 088” 

Lexemes/CPU-Min: 1285 

cenety sees 92 pages 
a 


Compi 


- af 


ion Complete 


QUIPMENT CORPORATION 
CONFIDENTIAL AND PROPRIETARY _ 


